﻿Public Class frmRoomSelecting

    Private Sub frmVaultSelecting_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Application.Exit()        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Enabled = False
        frmReserveRoomslc.Show(Me)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Enabled = False
        frmIssueRoomslc.Show(Me)
    End Sub

    Private Sub uxSettingbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uxSettingbtn.Click
        frmSetting.Show()
        Me.Enabled = False
    End Sub

    Private Sub uxExitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uxExitbtn.Click
        Application.Exit()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        frmDollarRoomslc.Show()
        Me.Enabled = False
    End Sub

    Private Sub frmRoomSelecting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If frmLogin.UserRole = frmLogin.RoleAdmin Then
            uxSettingbtn.Visible = True
        Else
            uxSettingbtn.Visible = False
        End If
    End Sub
End Class